home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u1.d64 / colour combo.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  43 lines
  1. 10 PRINTCHR$(147);CHR$(14);:REM CLEAR      SCREEN & LOWER CASE
  2. 20 :PRINT"";CHR$(18)" [195][207][204][207][213][210][160][195][207][205][194][201][206][193][212][201][207][206][211] [196][197][205][207][206][211][212][210][193][212][201][207][206] ":REM TITLE
  3. 30 REM CREDITS AND INSTRUCTIONS
  4. 40 PRINT"[195]HARLIE [208]ATERSON   [212]ORONTO   [195]ANADA                 1983 07 20"
  5. 50 PRINT"    [212]HIS PROGRAM WILL DISPLAY EVERY"
  6. 60 PRINT"COLOUR COMBINATION. [212]HE RUNNING TIME"
  7. 70 PRINT"IS 4.5 [200]RS!!!! [212]O SHORTEN THAT TIME,"
  8. 80 PRINT"REDUCE THE TIMING COUNT IN LINE 280."
  9. 90 PRINT"[201]F THE COLOUR FOR THE CHARACTERS AND"
  10. 100 PRINT"BACKGROUND ARE THE SAME, NO PRINTING"
  11. 110 PRINT"WILL SHOW. [212]O ESCAPE PRESS [210][213][206]/[211][212][207][208]     & [210][197][211][212][207][210][197]."
  12. 120 FOR TM = 1 TO 10000:NEXT TM:REM         INSTRUCTION DELAY
  13. 130 NC = 0:REM INITIALIZE COMBO COUNT
  14. 135 REM COLOUR DATA
  15. 140 :DATA 144,5,28,159,156,30,31,158
  16. 150 :DATA 129,149,150,151,152,153,154,155
  17. 155 REM BORDER COLOUR SELECT
  18. 160 :FOR BO = 0 TO 15
  19. 170 : POKE 53280, BO
  20. 175 REM BACKGROUND COLOUR SELECT
  21. 180 : FOR BA = 0 TO 15
  22. 190 :  POKE 53281, BA
  23. 195 REM CHARACTER SELECTION
  24. 200 :FOR C = 0 TO 15
  25. 210 : READ CR
  26. 220 : PRINT CHR$(CR);:NC = NC+1
  27. 225 REM DISPLAY COLOUR NUMBERS              AND COMBINATION COUNT
  28. 230 :PRINTCHR$(147);"";"   COLOURS   "
  29. 240 :PRINT"";CHR$(18);"BORDER     =";PEEK(53280) AND 15"[157] "
  30. 250 :PRINT"";CHR$(18);"BACKGROUND =";PEEK(53281) AND 15"[157] "
  31. 260 :PRINT"";"CHARACTERS =";C
  32. 270 :PRINT"";"COLOUR COMBO # IS ";NC
  33. 280 FOR X = 1 TO 2000: NEXT X:REM VIEW      TIME FOR EACH COMBINATION
  34. 285 REM LOOP REPEATS
  35. 290 :NEXT C:REM NEXT CHARACTER
  36. 300 RESTORE
  37. 310 :NEXT BA:REM NEXT BACKGROUND
  38. 320 IF BO = 15 THEN 340
  39. 330 :NEXT BO:REM NEXT BORDER
  40. 335 REM PRINT TOTAL COMBINATIONS COUNT      (4096).
  41. 340 :PRINTCHR$(144);"TOTAL # OF COLOUR COMBINATIONS WAS "NC
  42. 350 END
  43.